﻿Option Strict On

Imports System.Data.Common

Public Class DbOperationEventArgs
    Inherits EventArgs
    Implements IDisposable

    Public Sub New()
        Cancel = False
        Command = Nothing
    End Sub

    Public Sub New(ByVal cmd As DbCommand)
        Me.Command = cmd
    End Sub

    Public Property Command As DbCommand

    Public Property Cancel As Boolean

#Region "IDisposable Support"
    Private disposedValue As Boolean ' So ermitteln Sie überflüssige Aufrufe

    ' IDisposable
    Protected Overridable Sub Dispose(ByVal disposing As Boolean)
        If Not Me.disposedValue Then
            If disposing Then
                Command = Nothing
            End If
        End If
        Me.disposedValue = True
    End Sub

    ' Dieser Code wird von Visual Basic hinzugefügt, um das Dispose-Muster richtig zu implementieren.
    Public Sub Dispose() Implements IDisposable.Dispose
        ' Ändern Sie diesen Code nicht. Fügen Sie oben in Dispose(ByVal disposing As Boolean) Bereinigungscode ein.
        Dispose(True)
        GC.SuppressFinalize(Me)
    End Sub
#End Region

End Class
